home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1999 June / macpower199906.bin / 9906⁄AMUG / INTERNET / WebCrossing 3.1-jp.sit / WebCrossing3.1J / navmenu.tpl < prev    next >
Encoding:
Text File  |  1998-11-20  |  2.0 KB  |  68 lines  |  [TEXT/ttxt]

  1. <!--
  2.     navmenu.tpl 2.0.2/a for release 2.0.2
  3.     Enables: folder navigation menu
  4.  
  5.     This file contains templates to create a folder navigation menu in HTML.
  6.     To install these templates, add the entire #Include line below to the end 
  7.     of your webx.tpl file (create the file if it doesn't exist).
  8. -->
  9.  
  10. <!--#Include File="navmenu.tpl"-->
  11.  
  12. <!--
  13.     To display the menu, place the following line(s) in your site banner, or a folder banner,
  14.     or a customized discussion or folder template, or anywhere else you want it:
  15.  
  16.     %% set _folder ".ee..." %%
  17.     %% use nav_menu %%
  18.  
  19.     Include the "set _folder" line only if you want the menu to display the folders
  20.     within a specific folder. ".ee..." must be the ID of a folder at your site.
  21.  
  22.     Note that if you place this in a folder banner, and you want the usual 
  23.     site banner to appear there as well, you will have to duplicate the site 
  24.     banner code in the folder banner.
  25.  
  26.     Templates defined herein:
  27.       nav_menu, folder_list: generate HTML menu
  28.       go_folder: handle menu selection
  29. -->
  30.  
  31.  
  32. %% macro nav_menu %%
  33. <form method=post action="%%urlBase%%go_folder@%%certificate%%@">
  34. 現在地: <select name=where onChange="form.submit()">
  35. %% if !pathIsFolder %%%% setPathToParent %%%% endif %%
  36. <option value="%%location%%" selected>%%pathTitle%%
  37. %% if !_folder %%%% set _folder "/" %%%% endif %%
  38. %% use folder_list %%
  39. %% setPath %%
  40. </select><input type=submit value=次へ></form>
  41. %% endmacro %%
  42.  
  43.  
  44. %% macro folder_list %%
  45.     %% setPath(_folder) %%
  46.     <option value="%%location%%">%%_indent%%%%pathTitle%%
  47.     %% set _lists pathSelect("type=f") & " end " & _lists %%
  48.     %% set _folder _lists.split %%
  49.     %% while _folder != "end" %%
  50.         %% if _folder %%
  51.             %% set _indent "-- " & _indent %%
  52.             %% use folder_list %%
  53.             %% set _junk _indent.split %%
  54.         %% endif %%
  55.         %% set _folder _lists.split %%
  56.     %% endwhile %%
  57. %% endmacro %%
  58.  
  59.  
  60. %% macro go_folder %%
  61. %% setPath(form.where) %%
  62. HTTP/1.0 302 Redirect%% crlf %%
  63. Location: http%% if siteIsSecure %%s%% endif %%://%%siteHost%%
  64. %%urlBase%%14@%%alwaysCertificate%%@%%location%%%% crlf %%%% crlf %%
  65. %% endmacro %%
  66.  
  67.  
  68.